home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / diskfree / diskfree.bas next >
Encoding:
BASIC Source File  |  1995-05-09  |  259 b   |  10 lines
  1. Type DiskFree
  2.     total_clusters As Long
  3.     avail_clusters As Long
  4.     sectors_per_cluster As Long
  5.     bytes_per_sector As Long
  6. End Type
  7.  
  8. Declare Function GetDiskSpaces Lib "diskfree.dll" (ByVal wDrive As Integer, DiskSpace As DiskFree) As Integer
  9.  
  10.